home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / DIRED / DIRED.ELC < prev    next >
Text File  |  1993-03-28  |  77KB  |  534 lines

  1. ;;; compiled by @win386 on Mon Mar 15 23:02:28 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/dired/dired.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'dired)
  14. (defconst dired-version (substring "!Revision: 6.0 !" 11 -2) "\
  15. The revision number of Tree Dired (as string).  The complete RCS id is:
  16.  
  17.   !Id: dired.el,v 6.0 1992/05/15 14:25:45 sk RelBeta !
  18.  
  19. Don't forget to mention this when reporting bugs to:
  20.  
  21.   Sebastian Kremer <sk@thp.uni-koeln.de>
  22.  
  23. Tree dired is available for anonymous ftp in USA in:
  24.  
  25.   ftp.cs.buffalo.edu:pub/Emacs/diredall.tar.Z
  26.  
  27. and in Europe at my own site in Germany:
  28.  
  29.   ftp.uni-koeln.de:/pub/gnu/emacs/diredall.tar.Z")
  30. (byte-code "└┴!¼ç\n├─O┼Ü    ¼ä╞╟!ê└ç" [boundp dired-emacs-19-p emacs-version 0 2 "19" require emacs-19] 3)
  31. (defvar dired-listing-switches "-al" "\
  32. *Switches passed to ls for dired. MUST contain the `l' option.
  33. Can contain even `F', `b', `i' and `s'.")
  34. (defvar dired-chown-program (byte-code "┴>½é┬ç├ç" [system-type (dgux-unix hpux usg-unix-v silicon-graphics-unix) "chown" "/etc/chown"] 2) "\
  35. *Name of chown command (usully `chown' or `/etc/chown').")
  36. (defvar dired-ls-program "ls" "\
  37. *Absolute or relative name of the ls program used by dired.")
  38. (defvar dired-ls-F-marks-symlinks t "\
  39. *Informs dired about how ls -lF marks symbolic links.
  40. Set this to t if `dired-ls-program' with -lF marks the symbolic link
  41. itself with a trailing @ (usually the case under Ultrix).
  42.  
  43. Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to
  44. nil, if it gives `bar@ -> foo', set it to t.
  45.  
  46. Dired checks if there is really a @ appended.  Thus, if you have a
  47. marking ls program on one host and a non-marking on another host, and
  48. don't care about symbolic links which really end in a @, you can
  49. always set this variable to t.")
  50. (defvar dired-trivial-filenames "^\\.\\.?$\\|^#" "\
  51. *Regexp of files to skip when moving point to the first file of a new directory listing.
  52. Nil means move to the subdir line, t means move to first file.")
  53. (defvar dired-keep-marker-move t "\
  54. If t, moved marked files are marked if their originals were.
  55. If a character, those files (marked or not) are marked with that character.")
  56. (defvar dired-keep-marker-copy 67 "\
  57. If t, copied files are marked if their source files were.
  58. If a character, those files are always marked with that character.")
  59. (defvar dired-keep-marker-hardlink 72 "\
  60. If t, hard-linked files are marked if the linked-to files were.
  61. If a character, those files are always marked with that character.")
  62. (defvar dired-keep-marker-symlink 89 "\
  63. If t, symlinked marked files are marked if the linked-to files were.
  64. If a character, those files are always marked with that character.")
  65. (defvar dired-dwim-target nil "\
  66. *If non-nil, dired tries to guess a default target directory:
  67. If there is a dired buffer displayed in the next window, use
  68. its current subdir, instead of the current subdir of this dired
  69. buffer.
  70.  
  71. The target is used in the prompt for file copy, move etc.")
  72. (defvar dired-copy-preserve-time nil "\
  73. *If non-nil, Dired preserves the last-modified time in a file copy.
  74. (This works on only some systems.)\\<dired-mode-map>
  75. Use `\\[dired-do-copy]' with a zero prefix argument to toggle its value.")
  76. (defvar dired-load-hook nil "\
  77. Run after loading dired.
  78. You can customize key bindings or load extensions with this.")
  79. (defvar dired-mode-hook nil "\
  80. Run at the very end of dired-mode.")
  81. (defvar dired-before-readin-hook nil "\
  82. This hook is run before a dired buffer is newly read in (created or reverted).")
  83. (defvar dired-after-readin-hook nil "\
  84. After each listing of a file or directory, this hook is run
  85. with the buffer narrowed to the listing.")
  86. (defvar dired-marker-char 42 "\
  87. In dired, character used to mark files for later commands.")
  88. (defvar dired-del-marker 68 "\
  89. Character used to flag files for deletion.")
  90. (defvar dired-shrink-to-fit (byte-code "└┴!½à┴ \nVç├ç" [fboundp baud-rate search-slow-speed t] 2) "\
  91. Whether dired shrinks the display buffer to fit the marked files.")
  92. (byte-code "└┴!¼é┬┬ç" [boundp dired-flagging-regexp nil] 2)
  93. (defvar dired-directory nil "\
  94. The directory name or shell wildcard passed as argument to ls.
  95. Local to each dired buffer.")
  96. (defvar dired-actual-switches nil "\
  97. The actual (buffer-local) value of `dired-listing-switches'.")
  98. (defvar dired-re-inode-size "[0-9     ]*" "\
  99. Regexp for optional initial inode and file size as produced by ls' -i and -s flags.")
  100. (byte-code "└┴!¼é┬└├!¼é─└┼!¼å ╟Q└╚!¼ç ╔Q└╩!¼ç╦╠═╬#\n└╧!¼â╨└ç" [boundp dired-re-mark "^[^ \n]" dired-re-maybe-mark "^. " dired-re-dir dired-re-inode-size "d" dired-re-sym "l" dired-re-exe mapconcat #[(x) "    \nQç" [dired-re-maybe-mark dired-re-inode-size x] 3] ("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|" dired-re-dot "^.* \\.\\.?/?$"] 4)
  101. (defvar dired-subdir-alist nil "\
  102. Association list of subdirectories and their buffer positions:
  103.  
  104.   ((LASTDIR . LASTMARKER) ... (DEFAULT-DIRECTORY . FIRSTMARKER)).")
  105. (defvar dired-subdir-regexp "^. \\([^ \n]+\\)\\(:\\)[\n]" "\
  106. Regexp matching a maybe hidden subdirectory line in ls -lR output.
  107. Subexpression 1 is the subdirectory proper, no trailing colon.
  108. The match starts at the beginning of the line and ends after the end
  109. of the line (\\n or \\r).
  110. Subexpression 2 must end right before the \\n or \\r.")
  111. (byte-code "└┴Mê┬├Mç" [dired-mark-if (macro . #[(predicate msg) "└┴┬├─╞╟EE╚╔╩─ ╠E═F─╬╧C╨#E»╤Fç" [let (buffer-read-only count) save-excursion (setq count 0) if msg message "Marking %ss..." (goto-char (point-min)) while (not (eobp)) predicate (progn (delete-char 1) (insert dired-marker-char) (setq count (1+ count))) (forward-line 1) append (message "%s %s%s %s%s." count) ((dired-plural-s count) (if (eq dired-marker-char 32) "un" "") (if (eq dired-marker-char dired-del-marker) "flagged" "marked")) (and (> count 0) count)] 13]) dired-mark-map (macro . #[(body arg &optional show-progress) "└┴┬├ ├┼ D╞╟ ╚╔╩├ ╠E═╬╧╬EEFDE├╤ ╥E╙╬FE╘DF┴╒╓╫╪┘┌├ █E═╬╧╬EED▄#F├▌╬╘DFFFE▐Eç" [prog1 let (buffer-read-only case-fold-search found results) if arg integerp progn dired-repeat-over-lines function lambda nil show-progress (sit-for 0) setq results cons body < 0 (nreverse results) list ((regexp (dired-marker-regexp)) next-position) save-excursion (goto-char (point-min)) (setq next-position (and (re-search-forward regexp nil t) (point-marker)) found (not (null next-position))) append (while next-position (goto-char next-position)) (sit-for 0) ((goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq next-position (and (re-search-forward regexp nil t) (point-marker)))) found (dired-move-to-filename)] 19])] 2)
  112. (fset 'dired-mark-get-files #[(&optional localp arg) "è└ëëë½£¿½æ╞╟\"ê╚W½ä    ƒ¬▌    ¬┌╔\n!C¬╙╦ └ èebê╬└╧#¡é╨ ë ?? ½º bê╔\n!    B bê╤yê └ëôê╬└╧#¡é╨ ë ¼Y)\n½â    ¬à╔\n!C*,╥ ê)ƒç" [nil results found case-fold-search buffer-read-only arg dired-repeat-over-lines #[nil "└    !\nBëç" [dired-get-filename localp results] 2] 0 dired-get-filename localp dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename] 5 "\
  113. Return the marked files as list of strings.
  114. The list is in the same order as the buffer, that is, the car is the
  115.   first marked file.
  116. Values returned are normally absolute pathnames.
  117. Optional arg LOCALP as in `dired-get-filename'.
  118. Optional second argument ARG forces to use other files.  If ARG is an
  119.   integer, use the next ARG files.  If ARG is otherwise non-nil, use
  120.   current file.  Usually ARG comes from the current prefix arg."])
  121. (byte-code "└┴Mê┬├Mç" [dired-ls #[(file switches &optional wildcard full-directory-p) "¼ç┴\n $ç ¼â ½ó╟\n!╔\n╦╠╦╬>½â╧¬ü╨╤ ╥╙\n!░&)ç╔╦╠╦ ╘>½à╒\n!¬ü\n&ç" [dired-ls-program dos-dired-ls file switches wildcard full-directory-p dired-listing-switches file-name-directory default-directory call-process shell-file-name nil t system-type (ms-dos win386) "/c" "-c" " -d " " " file-name-nondirectory (ms-dos win386) directory-file-name] 12] dired-read-dir-and-switches #[(str) "└    ¡ä┬├ \"┼╞╟\"╔\n╔$D!ç" [reverse current-prefix-arg read-string "Dired listing switches: " dired-listing-switches read-file-name format "Dired %s(directory): " str nil default-directory] 7]] 2)
  122. (fset 'dired #[(dirname &optional switches) "└┴\n \"!ç" [switch-to-buffer dired-noselect dirname switches] 4 "\
  123. \"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
  124. With an optional prefix argument you can specify the ls SWITCHES that are used.
  125. Dired displays a list of files in DIRNAME (which may also have
  126.   shell wildcards appended to select certain files).
  127. You can move around in it with the usual commands.
  128. You can flag files for deletion with \\<dired-mode-map>\\[dired-flag-file-deleted] and then delete them by
  129.   typing \\[dired-do-deletions].
  130. Type \\[describe-mode] after entering dired for more info.
  131.  
  132. If DIRNAME is already in a dired buffer, that buffer is used without refresh." (dired-read-dir-and-switches "")])
  133. (fset 'dired-other-window #[(dirname &optional switches) "└┴\n \"!ç" [switch-to-buffer-other-window dired-noselect dirname switches] 4 "\
  134. \"Edit\" directory DIRNAME.  Like `dired' but selects in another window." (dired-read-dir-and-switches "in other window ")])
  135. (fset 'dired-noselect #[(dirname &optional switches) "¼é    ┬├!!─!½ä┼!╞\"ç" [dirname default-directory expand-file-name directory-file-name file-directory-p file-name-as-directory dired-internal-noselect switches] 3 "\
  136. Like `dired' but returns the dired buffer as value, does not select it."])
  137. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mç" [dired-internal-noselect #[(dirname &optional switches) "└    !ë?p\n¼è┼╟╚    !!)\nqê ¼ï    ½╗╩    !ê¬┤╦    !½â    ¬â╠    !    ¼ä    ╧        \"ê╨╥Ä╙    \n\"ê╘*╒╓!êebê╫    !ê qê\n+ç" [dired-find-buffer-nocreate dirname buffer new-buffer-p old-buf fundamental-mode default-major-mode create-file-buffer directory-file-name switches dired-sort-other file-directory-p file-name-directory default-directory dired-listing-switches dired-mode t failed ((byte-code "½ä┴\n!ê┴ç" [failed kill-buffer buffer] 2)) dired-readin nil run-hooks dired-after-readin-hook dired-initial-position] 4] dired-find-buffer-nocreate #[(dirname) "└┴ \n½₧è\n@qê ┼=½Äܽç\n@└¬â\nA)¬_ *ç" [nil buffer-list blist found major-mode dired-mode dired-directory dirname] 2] dired-readin #[(dirname buffer) "└    !┬├!êè─┼    \"êqê╟~ê╔ ê╩    !ê╦ed╠#êebê═!ê)─╧    \"ê╨╟!ê╤╥!╟Lê╟╘╒\"½ä╫ ¬é╪ *ç" [expand-file-name dirname run-hooks dired-before-readin-hook message "Reading directory %s..." buffer nil buffer-read-only erase-buffer dired-readin-insert indent-rigidly 2 dired-insert-headerline default-directory "Reading directory %s...done" set-buffer-modified-p make-local-variable dired-subdir-alist case-fold-search string-match "R" dired-actual-switches dired-build-subdir-alist dired-simple-subdir-alist] 4] dired-readin-insert #[(dirname) "    Ü½¥┬├┼╞\")¼å╔=½â    ¬â    ╩P├╦$ç╠═╬    !!!¼à╧╨    \"ç┬    ╦#êèebê╤╥    !╙▒)ç" [default-directory dirname dired-ls nil case-fold-search string-match "R" dired-actual-switches system-type vax-vms "." t file-readable-p directory-file-name file-name-directory error "Directory %s inaccessible or nonexistent" "wildcard " file-name-nondirectory "\n"] 5] dired-insert-headerline #[(dir) "è└┴\n!├▒)ç" ["  " directory-file-name dir ":\n"] 3] dired-revert #[(&optional arg noconfirm) "~ê`└┴┬\"┴├ ─!A┴ë    \n  ebê═ed\"\n╬p\"ê┴╤!ê)╥\n!ê╙╨!ê ½å╘ !¼ä bê╒ êè╓╫    \"ê.┬ëç" [dired-get-filename nil t dired-remember-hidden reverse dired-subdir-alist buffer-read-only case-fold-search old-subdir-alist hidden-subdirs mark-alist ofile opoint dired-remember-marks dired-readin dired-directory dired-after-readin-hook dired-insert-old-subdirs dired-mark-remembered run-hooks dired-goto-file dired-move-to-filename mapcar #[(dir) "└    !¡â┬├!ç" [dired-goto-subdir dir dired-hide-subdir 1] 2]] 7] dired-remember-marks #[(beg end) "½è┴├ ╞╟$ê)┴ëë    \nè bê╦ ═#½ÿ╬┴═\"ë\n½oh    \n    BB¬`)+ç" [selective-display nil buffer-read-only subst-char-in-region beg end 13 10 alist chr fil re-search-forward dired-re-mark t dired-get-filename] 5] dired-mark-remembered #[(alist) "└ëë ¡ƒ @ A @ A┼\n!½lè╞yê╟╚!ê    cê)¬^+ç" [nil chr fil elt alist dired-goto-file 0 delete-char 1] 3] dired-remember-hidden #[nil "┴ë ½Æ @@ A┼ !½q \nB¬k\n+ç" [dired-subdir-alist nil result dir l dired-subdir-hidden-p] 3] dired-insert-old-subdirs #[(old-subdir-alist) "└┴\n\"«£├ë¡ô@A@├╟╚Åê¬i*ç" [string-match "R" dired-actual-switches nil dir elt old-subdir-alist (dired-insert-subdir dir) ((error))] 3]] 2)
  138. (defvar dired-mode-map nil "\
  139. Local keymap for dired-mode buffers.")
  140. (byte-code "ä\\┴┬Mê├ ─!ê┼╞╟#ê┼╚╔#ê┼╩╦#ê┼╠═#ê┼╬╧#ê┼╨╤#ê┼╥╙#ê┼╘╒#ê┼╓╫#ê┼╪┘#ê┼┌█#ê┼▄▌#ê┼▐▀#ê┼αß#ê┼Γπ#ê┼Σσ#ê┼µτ#ê┼ΦΘ#ê┼Ωδ#ê┼∞φ#ê┼ε∩#ê┼≡±#ê┼≥≤#ê┼⌠⌡#ê┼÷≈#ê┼°∙#ê┼·√#ê┼ⁿ²#ê┼■ #êü@üA Mê┼üBü@#ê┼üCüD#ê┼üEüF#ê┼üGüH#ê┼üIüJ#ê┼üKüL#ê┼üMüN#ê┼üOüP#ê┼üQüR#ê┼üSüT#ê┼üU┬#ê┼üV┴#ê┼üWüX#ê┼üYüZ#ê┼ü[ü\\#ê┼ü]ü^#ê┼ü_ü`#ê┼üaüb#ê┼ücüd#ê┼üeüf#ê┼ügüh#ê┼üiüj#ê┼ükül#ê┼ümün#ê┼üoüp#ê┼üqür#ê┼üsüt#ê┼üuüv#ê┼üwüx#ê┼üyüz#ê┼ü{ü|#ê┼ü}ü~#ê┼üüd#ê┼üÇüd#ê┼üüüh#ê┼üéüâ#ê┼üäüà#ê┼üåüç#ê┼üêüë#ê┼üèüï#ê┼üîüï#êüìÄ₧üÅܼêüÉÄBÄüæüÆüôüö#ç" [dired-mode-map dired-advertised-find-file dired-find-file make-keymap suppress-keymap define-key "#" dired-flag-auto-save-files "*" dired-mark-executables "." dired-clean-directory "/" dired-mark-directories "@" dired-mark-symlinks "c" dired-do-copy "r" dired-do-move "!" dired-do-shell-command "B" dired-do-byte-compile "C" dired-do-compress "G" dired-do-chgrp "H" dired-do-hardlink "L" dired-do-load "M" dired-do-chmod "O" dired-do-chown "P" dired-do-print "U" dired-do-uncompress "X" dired-do-delete "Y" dired-do-symlink "D" dired-diff "W" dired-why " " dired-unflag-all-files "ä" dired-tree-down "ò" dired-tree-up "Ä" dired-next-subdir "É" dired-prev-subdir "√" dired-prev-marked-file "²" dired-next-marked-file "δ" dired-do-kill dired-regexp-prefix make-sparse-keymap "%" "%u" dired-upcase "%l" dired-downcase "%d" dired-flag-regexp-files "%m" dired-mark-files-regexp "%r" dired-do-rename-regexp "%c" dired-do-copy-regexp "%H" dired-do-hardlink-regexp "%Y" dired-do-symlink-regexp "d" dired-flag-file-deleted "e" "f" "g" revert-buffer "h" describe-mode "i" dired-maybe-insert-subdir "k" dired-kill-line-or-subdir "l" dired-do-redisplay "m" dired-mark-subdir-or-file "n" dired-next-line "o" dired-find-file-other-window "p" dired-previous-line "q" dired-quit "s" dired-sort-toggle-or-edit "u" dired-unmark-subdir-or-file "v" dired-view-file "x" dired-do-deletions "~" dired-flag-backup-files "■" dired-backup-diff "+" dired-create-directory "<" dired-prev-dirline ">" dired-next-dirline "^" dired-up-directory " " "" "" "$" dired-hide-subdir "=" dired-hide-all "?" dired-summary "" dired-backup-unflag "" dired-undo "u" dired-sort-mode minor-mode-alist (dired-sort-mode dired-sort-mode) (dired-sort-mode dired-sort-mode) put dired-mode mode-class special] 4)
  141. (fset 'dired-mode #[(&optional dirname switches) "└ ê┴\n!ê├ ê─╞╚    ╩ ╩ ═╧╨!╤Lê╧╥!╙Lê╧╘!«éLê╧╫!Lê╧╪!«éLê╧█!ê▄╩\"ê▌▐!ç" [kill-all-local-variables use-local-map dired-mode-map dired-advertise dired-mode major-mode "Dired" mode-name nil case-fold-search t buffer-read-only selective-display ("Dired: %17b") mode-line-buffer-identification make-local-variable revert-buffer-function dired-revert page-delimiter "\n\n" dired-directory dirname default-directory list-buffers-directory dired-actual-switches switches dired-listing-switches dired-sort-mode dired-sort-other run-hooks dired-mode-hook] 3 "\
  142. Mode for \"editing\" directory listings.
  143. In dired, you are \"editing\" a list of the files in a directory and
  144.   (optionally) its subdirectories, in the format of `ls -lR'.
  145.   Each directory is a page: use \\[backward-page] and \\[forward-page] to move pagewise.
  146. \"Editing\" means that you can run shell commands on files, visit,
  147.   compress, load or byte-compile them, change their file attributes
  148.   and insert subdirectories into the same buffer.  You can \"mark\"
  149.   files for later commands or \"flag\" them for deletion, either file
  150.   by file or all files matching certain criteria.
  151. You can move using the usual cursor motion commands.\\<dired-mode-map>
  152. Letters no longer insert themselves.  Digits are prefix arguments.
  153. Instead, type \\[dired-flag-file-deleted] to flag a file for Deletion.
  154. Type \\[dired-mark-subdir-or-file] to Mark a file or subdirectory for later commands.
  155.   Most commands operate on the marked files and use the current file
  156.   if no files are marked.  Use a numeric prefix argument to operate on
  157.   the next ARG (or previous -ARG if ARG<0) files, or just `1'
  158.   to operate on the current file only.  Prefix arguments override marks.
  159.   Mark-using commands display a list of failures afterwards.  Type \\[dired-why] to see
  160.   why something went wrong.
  161. Type \\[dired-unmark-subdir-or-file] to Unmark a file or all files of a subdirectory.
  162. Type \\[dired-backup-unflag] to back up one line and unflag.
  163. Type \\[dired-do-deletions] to eXecute the deletions requested.
  164. Type \\[dired-advertised-find-file] to Find the current line's file
  165.   (or dired it in another buffer, if it is a directory).
  166. Type \\[dired-find-file-other-window] to find file or dired directory in Other window.
  167. Type \\[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer.
  168. Type \\[dired-do-move] to Rename a file or move the marked files to another directory.
  169. Type \\[dired-do-copy] to Copy files.
  170. Type \\[dired-sort-toggle-or-edit] to toggle sorting by name/date or change the ls switches.
  171. Type \\[revert-buffer] to read all currently expanded directories again.
  172.   This retains all marks and hides subdirs again that were hidden before.
  173. SPC and DEL can be used to move down and up by lines.
  174.  
  175. If dired ever gets confused, you can either type \\[revert-buffer] to read the
  176. directories again, type \\[dired-do-redisplay] to relist a single or the marked files or a
  177. subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer
  178. again for the directory tree.
  179.  
  180. Customization variables (rename this buffer and type \\[describe-variable] on each line
  181. for more info):
  182.  
  183.   dired-listing-switches
  184.   dired-trivial-filenames
  185.   dired-shrink-to-fit
  186.   dired-marker-char
  187.   dired-del-marker
  188.   dired-keep-marker-move
  189.   dired-keep-marker-copy
  190.   dired-keep-marker-hardlink
  191.   dired-keep-marker-symlink
  192.  
  193. Hooks (use \\[describe-variable] to see their documentation):
  194.  
  195.   dired-before-readin-hook
  196.   dired-after-readin-hook
  197.   dired-mode-hook
  198.   dired-load-hook
  199.  
  200. Keybindings:
  201. \\{dired-mode-map}"])
  202. (byte-code "└┴Mê┬├Mç" [dired-check-ls-l #[nil "└┬├ \"«â┼╞!)ç" [nil case-fold-search string-match "l" dired-actual-switches error "Dired needs -l in ls switches"] 3] dired-repeat-over-lines #[(arg function) "└yê    └V½ƒm¼£    S└yêm¼ë┬ ½à├yê¬tè  ê)├yê¬\\    └W½óo¼ƒ    T┼yêo¼ë┬ ½à┼yê¬t└yêè  ê)╞ ê¬Y╞ ç" [0 arg dired-between-files 1 function -1 dired-move-to-filename] 2]] 2)
  203. (fset 'dired-flag-file-deleted #[(arg) "┬ !)ç" [dired-del-marker dired-marker-char dired-mark-subdir-or-file arg] 2 "\
  204. In dired, flag the current line's file for deletion.
  205. With prefix arg, repeat over several lines.
  206.  
  207. If on a subdir headerline, mark all its files except `.' and `..'." "P"])
  208. (fset 'dired-quit #[nil "└ ç" [bury-buffer] 1 "\
  209. Bury the current dired buffer." nil])
  210. (fset 'dired-summary #[nil "└┴!ç" [message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, r-ename, c-opy, h-elp"] 2 nil nil])
  211. (fset 'dired-create-directory #[(directory) "└┴\n!!─ !ê┼ !ê╞ )ç" [directory-file-name expand-file-name directory expanded make-directory dired-add-file dired-move-to-filename] 3 "\
  212. Create a directory called DIRECTORY." (byte-code "└┴┬ \"Cç" [read-file-name "Create directory: " dired-current-directory] 3)])
  213. (fset 'dired-undo #[nil "└┬ )ç" [nil buffer-read-only undo] 1 "\
  214. Undo in a dired buffer.
  215. This doesn't recover lost files, it is just normal undo with temporarily
  216. writeable buffer.  You can use it to recover marks, killed lines or subdirs.
  217. In the latter case, you have to do \\[dired-build-subdir-alist] to
  218. parse the buffer again." nil])
  219. (fset 'dired-unflag #[(arg) "└    ┬\"ç" [dired-repeat-over-lines arg (lambda nil (let (buffer-read-only) (delete-char 1) (insert " ") (forward-char -1) nil))] 3 "\
  220. In dired, remove the current line's delete flag then move to next line.
  221. Optional prefix ARG says how many lines to unflag." "p"])
  222. (fset 'dired-backup-unflag #[(arg) "└    [!ç" [dired-unflag arg] 2 "\
  223. In dired, move up lines and remove deletion flag there.
  224. Optional prefix ARG says how many lines to unflag; default is one line." "p"])
  225. (fset 'dired-next-line #[(arg) "└    !ê┬ ç" [next-line arg dired-move-to-filename] 2 "\
  226. Move down lines then position at filename.
  227. Optional prefix ARG says how many lines to move; default is one line." "p"])
  228. (fset 'dired-previous-line #[(arg) "└    !ê┬ ç" [previous-line arg dired-move-to-filename] 2 "\
  229. Move up lines then position at filename.
  230. Optional prefix ARG says how many lines to move; default is one line." "p"])
  231. (fset 'dired-up-directory #[nil "└ ┬├    !!┼├    !!«î╞ !«ç╟ !ê┼    !*ç" [dired-current-directory dir file-name-directory directory-file-name up dired-goto-file dired-goto-subdir dired] 3 "\
  232. Run dired on parent directory of current directory.
  233. Find the parent directory either in this buffer or another buffer.
  234. Creates a buffer if necessary." nil])
  235. (fset 'dired-find-file #[nil "└┴ !ç" [find-file dired-get-filename] 2 "\
  236. In dired, visit the file or directory named on this line." nil])
  237. (fset 'dired-view-file #[nil "└┴ !½ï┬┴ !«ë├┴ !ç─┴ !ç" [file-directory-p dired-get-filename dired-goto-subdir dired view-file] 2 "\
  238. In dired, examine a file in view mode, returning to dired when done.
  239. When file is a directory, show it in this buffer if it is inserted;
  240. otherwise, display it in another buffer." nil])
  241. (fset 'dired-find-file-other-window #[nil "└┴ !ç" [find-file-other-window dired-get-filename] 2 "\
  242. In dired, visit this file or directory in another window." nil])
  243. (fset 'dired-get-filename #[(&optional localp no-error-if-not-filep) "└ëëëè┼?!ë½à╟!)\n¡å    ¡â\n    {ë½ò╚╔\n\"½Ä╦╠═╬ ╧#«ü ╠Q!╤=½â ¬ë ¡å╥! P,ç" [nil p2 p1 file case-fold-search dired-move-to-filename no-error-if-not-filep dired-move-to-end-of-filename string-match "b" dired-actual-switches read "\"" dired-string-replace-match "\\([^\\]\\)\"" "\\1\\\\\"" localp no-dir dired-current-directory] 6 "\
  244. In dired, return name of file mentioned on this line.
  245. Value returned normally includes the directory name.
  246. Optional arg LOCALP with value `no-dir' means don't include directory
  247.   name in result.  A value of t means use path name relative to
  248.   `default-directory', which still may contain slashes if in a subdirectory.
  249. Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
  250.   this line, otherwise an error occurs."])
  251. (fset 'dired-move-to-filename #[(&optional raise-error eol) "¼à┴ê`┬yê├─\"½¥╞╟╚#½Ä╔┴wê╩wê╔wê`ç ¡â╠═!çl½è ½ë╠═!ê¬â┴uê╔┴wê`ç" [eol nil 0 string-match "l" dired-actual-switches re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+" t " " "^ " raise-error error "No file on this line"] 4 "\
  252. In dired, move to first char of filename on this line.
  253. Returns position (point) or nil if no filename on this line."])
  254. (fset 'dired-move-to-end-of-filename #[(&optional no-error) "└ëëëëëëë╔╩ \"`è└ê`) ¡çè═╬    ╧#)ëä╗è╨╤└╧#½ú╥öfë╙=\n¡ô╔╘╒ö╒ò{╓ö╓ò{╫ö╫ò{Q\"¬Å¼ï╔┘ \"½ä┌█!ê)½¢═▄    ╧#½├▌uê\n½╜½╣h▀=½┤αuꬻ    bê\n½⌐h!Γ=½å!π=«ö½å!Σ=«èσ=¡ä!µ=)½âαuê¼Æ`=½î┌ ½àτΦ!¬ü█!ê`=?¡ü`.ç" [nil eol used-F case-fold-search hidden symlink executable file-type opoint string-match "F" dired-actual-switches selective-display search-forward "" t re-search-backward "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" 1 108 "[xst]" 2 3 4 no-error "l" error "No file on this line" " ->" -3 dired-ls-F-marks-symlinks 64 -1 char 100 47 42 115 61 substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide"] 9])
  255. (fset 'dired-clean-directory #[(keep) "½à┴!¬ü\në├W½ä[¬ü ├X½â\n¬ü┼╔╩#ê╦╠!êë½╕╬╧@A╨\"BëGë\\V½Å¢Z¢íê@Aíê*Aë¼H)╦╙!ê╔╘!+ç" [keep prefix-numeric-value dired-kept-versions 0 kept-old-versions nil file-version-assoc-list late-retention early-retention message "Cleaning numerical backups (keeping %d late, %d old)..." dired-map-dired-file-lines dired-collect-file-versions fval q sort < sorted-v-list v-count dired-trample-file-versions "Cleaning numerical backups...done"] 5 "\
  256. Flag numerical backups for deletion.
  257. Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.
  258. Positive prefix arg KEEP overrides `dired-kept-versions';
  259. Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive.
  260.  
  261. To clear the flags on these files, you can use \\[dired-flag-backup-files]
  262. with a prefix argument." "P"])
  263. (byte-code "└┴Mê┬├Mê─┼Mç" [dired-map-dired-file-lines #[(fun) "└ êè┴ëebêm?¡ƒè─!¼ôl¼É╞┴╟\"ë½ê┴ê !ê)╔yê¬]+ç" [dired-check-ls-l nil buffer-read-only file looking-at dired-re-dir dired-get-filename t fun 1] 3] dired-collect-file-versions #[(fn) "└    !┬PëG┼ ╞    !\"╚╔\"ë\n¡è    \nB Bë ,ç" [file-name-nondirectory fn ".~" base-versions bv-length file-name-all-completions file-name-directory possibilities mapcar backup-extract-version versions file-version-assoc-list] 5] dired-trample-file-versions #[(fn) "└┴\n\"─ ¡ú╞\n╟ O\"ë¡ù╔\n ╩\\─O!>?¡è╟yê╦╠!êc*ç" [string-match "\\.~[0-9]+~$" fn start-vn nil base-version-list assoc 0 file-version-assoc-list string-to-int 2 delete-char 1 dired-del-marker] 4]] 2)
  264. (defvar dired-buffers nil "\
  265. Alist of directories and their associated dired buffers.")
  266. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█!¼â▄└ç" [dired-buffers-for-dir #[(dir) "└    !\n├ëë½╖@╟     @\"½ñ A╔!½ö╩    èqê )\"½îB¬à╠ \n\")Aë¼I+ç" [file-name-as-directory dir dired-buffers nil elt result alist dired-in-this-tree buf buffer-name assoc dired-subdir-alist delq] 4] dired-advertise #[nil "p└    !>½é┬ç    pB Bëç" [dired-buffers-for-dir default-directory t dired-buffers] 3] dired-unadvertise #[(dir) "└┴\n \" \"ëç" [delq assoc dir dired-buffers] 4] dired-fun-in-all-buffers #[(directory fun &rest args) "└    !p┬뽃@A╟Ä qê╚    \n\"½å╦ ! B)¬] ,ç" [dired-buffers-for-dir directory nil success-list buf obuf buf-list ((set-buffer obuf)) apply fun args buffer-name] 4] dired-add-file #[(filename &optional marker-char) "└┴\n!├\n $ç" [dired-fun-in-all-buffers file-name-directory filename dired-add-entry marker-char] 5] dired-add-entry #[(filename &optional marker-char) "└    !`┬ ├    !─╔    !╩╦ìë½äbê,?ç" [directory-file-name filename dired-current-directory file-name-directory nil reason directory cur-dir opoint file-name-nondirectory not-found (byte-code "    ÿ½ù┬    !½â├ ê─    !`W½âbê)¬ù╞!½ì╟╚!½â├ ê╔ ê¬à╩╦╠\"ê═╧yê╨!ê╥╙\"╓P\"ê╫yê╪┘!█ {|ê▌!cê*½ôèî╧yê`è▀yê`)}êα▐!ê*╪ ê)═ç" [directory cur-dir dired-subdir-hidden-p dired-unhide-subdir dired-after-subdir-garbage p dired-goto-subdir looking-at "" dired-goto-next-nontrivial-file throw not-found "Subdir not found" nil buffer-read-only 0 dired-add-entry-do-indentation marker-char dired-ls dired-make-absolute filename dired-actual-switches "d" -1 dired-move-to-filename t beg dired-move-to-end-of-filename end file-name-nondirectory dired-after-readin-hook 1 run-hooks] 4)] 5] dired-add-entry-do-indentation #[(marker-char) "½è¿½â¬ä    ¬ü┬┬▒ç" [marker-char dired-marker-char 32] 2] dired-after-subdir-garbage #[(dir) "è└    !¼ä┬├!ê─yêl¼ë┼ ¼à─yê¬t`)ç" [dired-goto-subdir dir error "This cannot happen" 1 dired-move-to-filename] 2] dired-remove-file #[(file) "└┴\n!├\n#ç" [dired-fun-in-all-buffers file-name-directory file dired-remove-entry] 4] dired-remove-entry #[(file) "è└    !¡Ä┬─yê`è┼yê`)|))ç" [dired-goto-file file nil buffer-read-only 0 1] 2] dired-relist-file #[(file) "└┴\n!├\n#ç" [dired-fun-in-all-buffers file-name-directory file dired-relist-entry] 4] dired-relist-entry #[(file) "└ëè├ !½Ä┼yêg`è╞yê`)|ê╟ !╚     ╔=?¡ü    \"+ç" [nil marker buffer-read-only dired-goto-file file 0 1 directory-file-name dired-add-entry 32] 4] dired-update-file-line #[(file) "└yêg``├yê`|ê ½î┼ !ê╞    ëT╟\n$ê*╚ ç" [0 opoint char 1 file dired-add-entry subst-char-in-region 32 dired-move-to-filename] 5] boundp dired-log-buf "*Dired log*"] 2)
  267. (fset 'dired-why #[nil "p┴\n!êdbê├─!ê┼!)ç" [obuf pop-to-buffer dired-log-buf recenter -1 switch-to-buffer-other-window] 2 "\
  268. Pop up a buffer with error log output from Dired.
  269. A group of errors from a single command ends with a formfeed.
  270. Thus, use \\[backward-page] to find the beginning of a group of errors." nil])
  271. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [dired-log #[(log &rest args) "p┴Ä┬ !qêdbê─;½Æ½ë╚╔#¬éc¬£╩!½å╦!¬É╠=¡è═╬ ╧╨!╤▒+ç" [obuf ((set-buffer obuf)) get-buffer-create dired-log-buf nil buffer-read-only log args apply format bufferp insert-buffer t "\n    " current-time-string "    Buffer `" buffer-name "'\n \n"] 5] dired-log-summary #[(log &rest args) "└┴┬ P #ê┴┼!ç" [apply dired-log "\n" log args t] 4] dired-call-process #[(program discard &rest arguments) "└┴\n├ ?├&ç" [apply call-process program nil discard arguments] 7] dired-check-process-checker #[(exit-status) "½à    ┬U?ç├ ┬U?ç" [dired-emacs-19-p exit-status 0 buffer-size] 2] dired-check-process #[(msg program &rest arguments) "└ë    ┼╞\"êè╚╔!ëqê╩ ê\n╦╠═└$!ë½¢╨╤╥!╙R!ê╨ !ê«Æ«Ä╘¬ï╒ !ê┼╓\"ê└,ç" [nil default-directory dir err err-buffer message "%s..." msg get-buffer-create " *dired-check-process output*" erase-buffer dired-check-process-checker apply dired-call-process program arguments dired-log " " prin1-to-string "\n" t kill-buffer "%s...done"] 7]] 2)
  272. (fset 'dired-diff #[(file &optional switches) "½ê┴\n├─!#ç┴\n├─!\"ç" [switches diff file dired-get-filename t] 4 "\
  273. Compare file at point with file FILE using `diff'.
  274. FILE defaults to the file at the mark.
  275. The prompted-for file is the first file given to `diff'.
  276. Prefix arg lets you edit the diff switches.  See the command `diff'." (byte-code "└ ¡èè└ bê┴┬ë\")─┼╞┴┬! ½å╟ ╚Q¬ü╔#╩  ┬$╦╠!¡â╠═!)Dç" [mark dired-get-filename t default read-file-name format "Diff %s with: %s" "(default " ") " "" dired-current-directory fboundp diff-read-switches "Options for diff: "] 7)])
  277. (fset 'dired-backup-diff #[(&optional switches) "└ë┴ ┼\n!½ê\n╞\n!¬î╟\n!«ä╚╔\n\"\n\n½ê╦ \n#¬ä╦ \"+ç" [nil dired-get-filename file ori bak backup-file-name-p file-name-sans-versions latest-backup-file error "No backup found for %s" switches diff] 4 "\
  278. Diff this file with its backup file or vice versa.
  279. Uses the latest backup, if there are several numerical backups.
  280. If this file is a backup, diff it with its original.
  281. The backup file is the first file given to `diff'.
  282. Prefix arg lets you edit the diff switches.  See the command `diff'." (byte-code "└┴!¡â┴┬!Cç" [fboundp diff-read-switches "Diff with switches: "] 2)])
  283. (fset 'latest-backup-file #[(fn) "└    !┬    !─ !¡ü )«₧┼    !╟    !╚Pë    G\n╦╠    \"═\"@P+ç" [expand-file-name fn make-backup-file-name bak file-exists-p file-name-directory dir file-name-nondirectory ".~" base-versions bv-length sort file-name-all-completions #[(fn1 fn2) "└    !└\n!Vç" [backup-extract-version fn1 fn2] 3]] 6 "\
  284. Return the latest existing backup of FILE, or nil."])
  285. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mç" [dired-compress-make-compressed-filename #[(from-file &optional reverse) "½à    ┬├Oç    ─Pç" [reverse from-file 0 -2 ".Z"] 3] dired-compress #[nil "└ ê┴├ ┼ !è╟yê╚    !)½ï╩╦ P!ê╠ !¬ò═╬ P╧╨ $½à╠ !¬å╤!ê┴+ç" [dired-check-ls-l nil buffer-read-only dired-get-filename from-file dired-compress-make-compressed-filename to-file 0 looking-at dired-re-sym dired-log "Attempt to compress a symbolic link:\n" dired-make-relative dired-check-process "Compressing " "compress" "-f" dired-update-file-line] 5] dired-uncompress #[nil "└┬ ─ ┼\"╟╚ P╔ #½à╩ !¬å╦!ê└+ç" [nil buffer-read-only dired-get-filename from-file dired-compress-make-compressed-filename t to-file dired-check-process "Uncompressing " "uncompress" dired-make-relative dired-update-file-line] 4] dired-mark-map-check #[(fun arg op-symbol &optional show-progress) "└    \n\"à╥├ëëë\n½¢\n¿½æ╚\n╔\"ê\n╩W½ä ƒ¬Γ ¬▀  C¬┘╠ ├èebê╧├╨#¡é╤ ë??½«bê½ä╙╩!ê   Bbê╘yê├ëôê╧├╨#¡é╤ ë¼R)½â ¬ä  C*,╒ êëG╪├\"ëG¼É█▄▌▐    !!▀!$¬á█α▐    !▀!&êßΓ▐    !▀!%,ç" [dired-mark-confirm op-symbol arg nil results found case-fold-search buffer-read-only dired-repeat-over-lines #[nil "½ä┴┬!ê   Bëç" [show-progress sit-for 0 fun results] 2] 0 fun dired-marker-regexp next-position regexp re-search-forward t point-marker show-progress sit-for 1 dired-move-to-filename total-list total delq failures count message "%s: %d file%s." capitalize symbol-name dired-plural-s "Failed to %s %d of %d file%s - type W to see why %s" dired-log-summary "Failed to %s %d of %d file%s"] 8]] 2)
  286. (fset 'dired-do-compress #[(&optional arg) "└┴\n├─$ç" [dired-mark-map-check dired-compress arg compress t] 5 "\
  287. Compress marked (or next ARG) files.
  288. Type \\[dired-do-uncompress] to uncompress again." "P"])
  289. (fset 'dired-do-uncompress #[(&optional arg) "└┴\n├─$ç" [dired-mark-map-check dired-uncompress arg uncompress t] 5 "\
  290. Uncompress marked (or next ARG) files." "P"])
  291. (fset 'dired-byte-compile #[nil "└ \n├=½ï    ─┼╞    \"O╟P¬â    ╟P╔\n╔ ╠═╬Åê ½î╧╨     #ê╤    !¬Ä╥!ê╔yê╙!ê╔,ç" [dired-get-filename filename system-type vax-vms 0 string-match ";" "c" elc-file nil buffer-read-only failure err (byte-code "è└    !ê)└ç" [byte-compile-file filename] 2) ((error (byte-code "┬ç" [err failure nil] 1))) dired-log "Byte compile error for %s:\n%s\n" dired-make-relative dired-remove-file dired-add-file] 5])
  292. (fset 'dired-do-byte-compile #[(&optional arg) "└┴\n├─$ç" [dired-mark-map-check dired-byte-compile arg byte-compile t] 5 "\
  293. Byte compile marked (or next ARG) Emacs lisp files." "P"])
  294. (fset 'dired-load #[nil "└ ┴─┼╞Åê\n??¡ë╟╚ \n#ê╔ !*ç" [dired-get-filename nil failure file err (byte-code "└    ┬ë├$ç" [load file nil t] 5) ((error (byte-code "┬ç" [err failure nil] 1))) dired-log "Load error for %s:\n%s\n" dired-make-relative] 4])
  295. (fset 'dired-do-load #[(&optional arg) "└┴\n├─$ç" [dired-mark-map-check dired-load arg load t] 5 "\
  296. Load the marked (or next ARG) Emacs lisp files." "P"])
  297. (fset 'dired-do-chxxx #[(attribute-name program op-symbol arg) "└┴\n\"─┼╟Q╚    \n %\n ╠\nQ╬╧ \n %╤\n!ê¡ç╥╙╘\"!,ç" [dired-mark-get-files t arg files dired-mark-read-string "Change " attribute-name " of %s to: " nil op-symbol new-attribute program " " operation apply dired-check-process failure dired-do-redisplay dired-log-summary message "%s: error - type W to see why."] 6])
  298. (fset 'dired-do-chmod #[(&optional arg) "└┴┬├ $ç" [dired-do-chxxx "Mode" "chmod" chmod arg] 5 "\
  299. Change the mode of the marked (or next ARG) files.
  300. This calls chmod, thus symbolic modes like `g+w' are allowed." "P"])
  301. (fset 'dired-do-chgrp #[(&optional arg) "└┴┬├ $ç" [dired-do-chxxx "Group" "chgrp" chgrp arg] 5 "\
  302. Change the group of the marked (or next ARG) files." "P"])
  303. (fset 'dired-do-chown #[(&optional arg) "└┴\n├ $ç" [dired-do-chxxx "Owner" dired-chown-program chown arg] 5 "\
  304. Change the owner of the marked (or next ARG) files." "P"])
  305. (fset 'dired-do-deletions #[nil "┬ ─èebê╞ ─╟#)½Θ╚─ëëë    \n ┬ ─ èebê╞ ─╟#¡é═ ë ??\n ½¿ bê╬ `B    B     bê╧yê ─ëôê╞ ─╟#¡é═ ë ¼X)\n½ä    ¬à╬ `BC.╨ ê─\"¬â╤╥!+ç" [dired-del-marker dired-marker-char dired-marker-regexp regexp nil case-fold-search re-search-forward t dired-internal-do-deletions results found buffer-read-only next-position point-marker dired-get-filename 1 dired-move-to-filename message "(No deletions requested)"] 6 "\
  306. In dired, delete the files flagged for deletion." nil])
  307. (fset 'dired-do-delete #[(&optional arg) "└┴ëë뽃¿½ô╟╚\"ê╔W½ä\nƒ¬▌\n¬┌╩ `BC¬╙╦ ┴ èebê╬┴╧#¡é╨ ë ?? ½º bê╩ `B\nB bê╤yê ┴ëôê╬┴╧#¡é╨ ë ¼Y) ½â\n¬à╩ `BC*,╥ ê\"ç" [dired-internal-do-deletions nil results found case-fold-search buffer-read-only arg dired-repeat-over-lines #[nil "└ `B    Bëç" [dired-get-filename results] 2] 0 dired-get-filename dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename] 6 "\
  308. Delete all marked (or next ARG) files." "P"])
  309. (byte-code "└┴!¼é┬├─Mê┼╞Mê╟╚Mç" [boundp dired-deletion-confirmer yes-or-no-p dired-internal-do-deletions #[(l arg) "└┴\n\"\nG├└╟\"ƒ╚╔╩ ╠═╬\"\"%½╜è╨\n½ö\n@Abê╨╙╘╒Åê)\nAë¼l¼è╓╫╪!#ê¬æ┘╓┌G╪!█!%!ê*¬ä╓▄!ê+▌ ç" [mapcar car l 0 succ count files dired-make-relative dired-mark-pop-up " *Deletions*" delete dired-deletion-confirmer format "Delete %s " dired-mark-prompt arg nil failures buffer-read-only err (byte-code "@@┬    !@├=½å─    !ê¬ä┼    !êT╟╚    #ê╩yê`╦yê`|ê╠    !ê)┬ç" [l fn file-attributes t remove-directory delete-file succ message "%s of %s deletions" count 0 1 dired-clean-up-after-deletion] 4) ((error (byte-code "└┴\n\"ê @@ B└ç" [dired-log "%s\n" err l failures] 3))) message "%d deletion%s done" dired-plural-s dired-log-summary "%d of %d deletion%s failed: %s" prin1-to-string "(No deletions performed)" dired-move-to-filename] 11] dired-clean-up-after-deletion #[(fn) "è└    !¡é┬ )ç" [dired-goto-subdir fn dired-kill-subdir] 2] dired-replace-in-string #[(regexp newtext string) "└┴┬ë╟    #½û┴ö┴ò     O\nQ ¬a    ┬OP,ç" ["" 0 nil me mb start result string-match regexp string newtext] 4]] 2)
  310. (fset 'dired-next-dirline #[(arg &optional opoint) "└ ê    ¼é`\n├V½ê─╞╟\n$¬è├yê╚╞╟\n[$½â╔ ç    bê╩╦!ç" [dired-check-ls-l opoint arg 0 re-search-forward dired-re-dir nil t re-search-backward dired-move-to-filename error "No more subdirectories"] 5 "\
  311. Goto ARG'th next directory file line." "p"])
  312. (fset 'dired-prev-dirline #[(arg) "└    [!ç" [dired-next-dirline arg] 2 "\
  313. Goto ARG'th previous directory file line." "p"])
  314. (fset 'dired-unflag-all-files #[(flag &optional arg) "└    G└U½â\n¬à├─    !Pè╟ëë╚    \n  ebê═╟╬#½₧½ë╨╩╤╥╬!#½î╙╘!ê╒cêT╓yê¬[-╫╪┘┌    #\"*ç" [0 flag dired-re-mark "^" regexp-quote re count nil "Type SPC or `y' to unflag one file, DEL or `n' to skip to next,\n`!' to unflag all remaining files with no more questions." help-form query case-fold-search buffer-read-only re-search-forward t arg dired-query "Unflag file `%s' ? " dired-get-filename delete-char -1 " " 1 message "%s" format "Flags removed: %d %s"] 6 "\
  315. Remove a specific or all flags from every file.
  316. With an arg, queries for each marked file.
  317. Type \\[help-command] at that time for help." "sRemove flag: (default: all flags) \nP"])
  318. (byte-code "└┴Mê┬├Mê─┼Mê╞╟!¼â╚╔╩Mê╦╠Mê╞═!¼â╬╧╨Mê╤╥Mê╙╘Mê╒╓Mê╫╪Mç" [dired-marker-regexp #[nil "└┴┬ !!Pç" ["^" regexp-quote char-to-string dired-marker-char] 4] dired-plural-s #[(count) "┴U½é┬ç├ç" [count 1 "" "s"] 2] dired-mark-prompt #[(arg files) "Gë┬U½ä@¬É ¿½å─┼ \"¬å─╞    #)ç" [files count 1 arg format "[next %d files]" "%c [%d files]" dired-marker-char] 5] boundp dired-query-alist ((121 . y) (32 . y) (110 . n) (127 . n) (33 . yes) (113 . no) (27 . no)) dired-query #[(qs-var qs-prompt &rest qs-args) "J┬     \"Aë┼=½â╞¬█ ╟=½â╚¬╙    \n½ï╦╠═╬!!\"¬ü╨P╚ë╘╒#ê╫ L┬     \"ë¼£╒╪\"ê┘ ê┌█!ê╘╒#ê╫ L¬[A▄>+*ç" [qs-var char assoc dired-query-alist action yes t no nil qs-prompt help-form format " [Type yn!q or %s] " key-description char-to-string help-char " [Type y, n, q or !] " elt result qprompt apply message qs-args read-char "Invalid char - type %c for help." ding sit-for 1 (t y yes)] 7] dired-pop-to-buffer #[(buf) "¼å┴┬ !!ç─ ┼ë╔╩ ë! V½Å╠ ═!U½å¬¢╔╬ ë!ë\\V½ì╠ ═!U½äè qêdbê╨┼xê╤e`\")╔!ë\\X½ç╥ !¬ö╙╔!]TZ]\"╘ \"ê╔!SW½É╒!ê╓╔!SZ!ê╫╪\"+ç" [dired-shrink-to-fit pop-to-buffer get-buffer-create buf selected-window nil w2 target-lines window window-height get-largest-window split-height-threshold screen-width window-width get-lru-window window-min-height "\n     " count-lines display-buffer split-window set-window-buffer select-window enlarge-window set-window-start 1] 6] dired-no-confirm nil dired-mark-confirm #[(op-symbol arg) "    >«ÿ┬├ \"╞╟╚╔╩!!╦╠ \"═R%)ç" [op-symbol dired-no-confirm dired-mark-get-files t arg files dired-mark-pop-up nil y-or-n-p capitalize symbol-name " " dired-mark-prompt "? "] 10] dired-mark-pop-up #[(bufname op-symbol files function &rest args) "¼é┴\n >¼å G┼U½ç╞\"çè╔!qê╩ ê╦ !ê)╠ïç" [bufname " *Marked Files*" op-symbol dired-no-confirm files 1 apply function args get-buffer-create erase-buffer dired-format-columns-of-files ((byte-code "└    !ê┬ \"ç" [dired-pop-to-buffer bufname apply function args] 3))] 3] dired-format-columns-of-files #[(files) "└┴┬├ \"\"┼\\╟╚ !┼Z    ╩    Ñ] Gë  Ñ  ª═U½â═¬ü╩\\══╤ !╥ _ Z╙\"ñëGS ¢ íêW½» W½ÿ_jê @cê ¢Të¬c╘cê═T A¬J.ç" [apply max mapcar length files 2 maxlen window-width selected-window width 1 columns nfiles 0 rows i j copy-sequence make-list "" "\n"] 6] dired-mark-read-string #[(prompt initial op-symbol arg files) "└┴\n ─┼╟ \"\"    &ç" [dired-mark-pop-up nil op-symbol files read-string format prompt dired-mark-prompt arg initial] 10] dired-mark-read-file-name #[(prompt dir op-symbol arg files) "└┴\n ─┼╟ \"\"    &ç" [dired-mark-pop-up nil op-symbol files read-file-name format prompt dired-mark-prompt arg dir] 10]] 2)
  319. (fset 'dired-mark-file #[(arg) "└┬ ─\")ç" [nil buffer-read-only dired-repeat-over-lines arg #[nil "└┴!ê\ncç" [delete-char 1 dired-marker-char] 2]] 3 "\
  320. In dired, mark the current line's file for later commands.
  321. With arg, repeat over several lines.
  322. Use \\[dired-unflag-all-files] to remove all flags." "p"])
  323. (fset 'dired-next-marked-file #[(arg &optional wrap opoint) "¼é`    ┬V½ê├ ┼╞    $¬è┬yê╟ ┼╞    [$½â╚ ç    ¼çbê╩╦!ç╠═!ê    ┬V½âe¬üdbê╬    ┼#ç" [opoint arg 0 re-search-forward dired-re-mark nil t re-search-backward dired-move-to-filename wrap error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 5 "\
  324. Move to the next marked file, wrapping around the end of the buffer." "p\np"])
  325. (fset 'dired-prev-marked-file #[(arg &optional wrap) "└    [\n\"ç" [dired-next-marked-file arg wrap] 3 "\
  326. Move to the previous marked file, wrapping around the end of the buffer." "p\np"])
  327. (byte-code "└┴Mê┬├Mç" [dired-file-marker #[(file) "è└    !¡è┬yêg├Ü?¡üg)ç" [dired-goto-file file 0 32] 2] dired-read-regexp #[(prompt &optional initial) "└    \n«ü \"ëç" [read-string prompt initial dired-flagging-regexp] 3]] 2)
  328. (fset 'dired-mark-files-regexp #[(regexp &optional marker-char) "«ü    ┬ëè┼╞╟╚\"êebêm¼¼╔\n!¼íl¼₧╦┬╠\"ë¡ê╬╨!\")½è╤╥!ê    cê T╥yê¬Q╞╙ ╚╘ !    ╒=½â╓¬ü╫    =½â┘¬ü┌&ê) ┼V¡ü +ç" [marker-char dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "matching file" looking-at dired-re-dot dired-get-filename t fn string-match regexp file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s 32 "un" "" dired-del-marker "flagged" "marked"] 9 "\
  329. Mark all files matching REGEXP for use in later commands.
  330. A prefix argument means to unmark them instead.
  331. `.' and `..' are never marked.
  332.  
  333. REGEXP is an Emacs regexp, not a shell wildcard.  Thus, use `\\.o$' for
  334. object files--just `.o' will mark more than you might think." (byte-code "└    ½â┬¬ü├─P!    ¡ü┼Dç" [dired-read-regexp current-prefix-arg "Unmark" "Mark" " files (regexp): " 32] 3)])
  335. (fset 'dired-flag-regexp-files #[(regexp) "└    \n\"ç" [dired-mark-files-regexp regexp dired-del-marker] 3 "\
  336. In dired, flag all files containing the specified REGEXP for deletion.
  337. The match is against the non-directory part of the filename.  Use `^'
  338.   and `$' to anchor matches.  Exclude subdirs by hiding them.
  339. `.' and `..' are never flagged." (byte-code "└┴!Cç" [dired-read-regexp "Flag for deletion (regexp): "] 2)])
  340. (fset 'dired-mark-symlinks #[(unflag-p) "└ ê    ½â┬¬ü ─ëè╟╚╔╩\"êebêm¼ò╦ !½è═╬!ê cêT╬yê¬h╚╧╩╨! ┬=½â╤¬ü╥ =½â╘¬ü╒&ê)╟V¡ü+ç" [dired-check-ls-l unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "symbolic link" looking-at dired-re-sym delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 "\
  341. Mark all symbolic links.
  342. With prefix argument, unflag all those files." "P"])
  343. (fset 'dired-mark-directories #[(unflag-p) "└ ê    ½â┬¬ü ─ëè╟╚╔╩\"êebêm¼¢╦ !½É╦!¼è╬╧!ê cêT╧yê¬b╚╨╩╤! ┬=½â╥¬ü╙ =½â╒¬ü╓&ê)╟V¡ü+ç" [dired-check-ls-l unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "directory file" looking-at dired-re-dir dired-re-dot delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 "\
  344. Mark all directory file lines except `.' and `..'.
  345. With prefix argument, unflag all those files." "P"])
  346. (fset 'dired-mark-executables #[(unflag-p) "└ ê    ½â┬¬ü ─ëè╟╚╔╩\"êebêm¼ò╦ !½è═╬!ê cêT╬yê¬h╚╧╩╨! ┬=½â╤¬ü╥ =½â╘¬ü╒&ê)╟V¡ü+ç" [dired-check-ls-l unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "executable file" looking-at dired-re-exe delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 "\
  347. Mark all executable files.
  348. With prefix argument, unflag all those files." "P"])
  349. (fset 'dired-flag-auto-save-files #[(&optional unflag-p) "└ ê    ½â┬¬ü ┼ëè╚╔╩╦\"êebêm¼⌐╠!¼₧╬╧ë\"ë¡å╤╥!!)½î╙╘!ê cêT╘yê¬T╔╒╦╓! ┬=½â╫¬ü╪ =½â┘¬ü┌&ê)╚V¡é+ç" [dired-check-ls-l unflag-p 32 dired-del-marker dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "auto save file" looking-at dired-re-dir dired-get-filename t fn auto-save-file-name-p file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 9 "\
  350. Flag for deletion files whose names suggest they are auto save files.
  351. A prefix argument says to unflag those files instead." "P"])
  352. (fset 'dired-flag-backup-files #[(&optional unflag-p) "└ ê    ½â┬¬ü ┼ëè╚╔╩╦\"êebêm¼º╠!¼£╬╧ë\"ë¡ä╤!)½î╥╙!ê cêT╙yê¬V╔╘╦╒! ┬=½â╓¬ü╫ =½â╪¬ü┘&ê)╚V¡é+ç" [dired-check-ls-l unflag-p 32 dired-del-marker dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "backup file" looking-at dired-re-dir dired-get-filename t fn backup-file-name-p delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 9 "\
  353. Flag all backup files (names ending with `~') for deletion.
  354. With prefix argument, unflag these files." "P"])
  355. (fset 'shell-quote #[(filename) "└┴┬╞╟ #½ù┴ö O╔ ëTOR T¬a ┬OP+ç" ["" 0 nil end start result string-match "[^---0-9a-zA-Z_./]" filename "\\"] 6 "\
  356. Quote a file name for inferior shell (see variable shell-file-name)."])
  357. (fset 'dired-read-shell-command #[(prompt arg files) "└┴┬ ─┼╟ \"\"%ç" [dired-mark-pop-up nil shell files read-string format prompt dired-mark-prompt arg] 10])
  358. (fset 'dired-do-shell-command #[(&optional arg in-background) "┴Ü ½â─¬ü┼\n½â╞¬ü╟╚Q    ╩╦\n?¡ü\" ═    \n?¡ü #╧ \n$╤ \"-ç" [arg 0 on-each in-background "& on " "! on " "each " "" "%s: " prompt dired-mark-get-files t file-list dired-read-shell-command command dired-shell-stuff-it result dired-run-shell-command] 5 "\
  359. Run a shell command on the marked files.
  360. If there is output, it goes to a separate buffer.
  361. The list of marked files is appended to the command string unless asterisks
  362.   `*' indicate the place(s) where the list should go.
  363. If no files are marked or a specific numeric prefix arg is given, uses
  364.   next ARG files.  As always, a raw arg (\\[universal-argument]) means the current file.
  365.   The prompt mentions the file(s) or the marker, as appropriate.
  366. With a zero argument, run command on each marked file separately: `cmd *
  367.   foo' results in `cmd F1 foo; ...; cmd Fn foo'.
  368. No automatic redisplay is attempted, as the file names may have
  369.   changed.  Type \\[dired-do-redisplay] to redisplay the marked files.
  370. The shell command has the top level directory as working directory, so
  371.   output files usually are created there instead of in a subdir." "P"])
  372. (defvar dired-mark-prefix "" "\
  373. Prepended to marked files in dired shell commands.")
  374. (defvar dired-mark-postfix "" "\
  375. Appended to marked files in dired shell commands.")
  376. (defvar dired-mark-separator " " "\
  377. Separates marked files in dired shell commands.")
  378. (byte-code "└┴Mê┬├Mç" [dired-shell-stuff-it #[(command file-list on-each &optional raw-arg) "└┴\n\"½â├¬ü─½ï╟╚╔\n\"╦#¬₧╟╔\n #\nG╬V½ëQ!))ç" [string-match "\\*" command #[(x) "└┴\n #ç" [dired-replace-in-string "\\*" x command] 4] #[(x) "┴\nQç" [command " " x] 3] stuff-it on-each mapconcat mapcar shell-quote file-list ";" dired-mark-separator fns 1 dired-mark-prefix dired-mark-postfix] 5] dired-run-shell-command #[(command &optional in-background) "½è┴┬ \"¼ä ─P┼ !ç" [in-background string-match "&[     ]*$" command " &" shell-command] 3]] 2)
  379. (fset 'dired-do-print #[(&optional arg) "<¼ä┴┬!ê├─\"╟╚╔#\n╦╠╔\nQ╬%╨╤╥#!+ç" [lpr-switches error "lpr-switches must be a *list* of strings" dired-mark-get-files t arg file-list mapconcat identity " " switches dired-mark-read-string "Print %s with: " lpr-command print command dired-run-shell-command dired-shell-stuff-it nil] 6 "\
  380. Print the marked (or next ARG) files.
  381. Uses the shell command coming from variables `lpr-command' and
  382. `lpr-switches' as default." "P"])
  383. (defvar dired-backup-if-overwrite nil "\
  384. *Non-nil if Dired should ask about making backups before overwriting files.
  385. Special value 'always suppresses confirmation.")
  386. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mç" [dired-handle-overwrite #[(to) "¡ª    ¡ú┬=¼è├─┼╞\"\"¡ö╚!@    ╩    ╦#ê╠    !)ç" [dired-backup-if-overwrite overwrite-confirmed always dired-query overwrite-backup-query format "Make backup for existing file `%s'? " to find-backup-file-name backup rename-file 0 dired-relist-entry] 5] dired-copy-file #[(from to ok-flag) "└    !ê┬      $ç" [dired-handle-overwrite to copy-file from ok-flag dired-copy-preserve-time] 5] dired-rename-file #[(from to ok-flag) "└    !ê┬      #ê┼ !½öè┼ !qê╞ ╚    !ê╔!ê*╩ !ê╦     \"ç" [dired-handle-overwrite to rename-file from ok-flag get-file-buffer buffer-modified-p modflag set-visited-file-name set-buffer-modified-p dired-remove-file dired-rename-subdir] 4] dired-rename-subdir #[(from-dir to-dir) "└    !└\n!├    ─    \n$ê┼ ë¡╢è@qê½ó╚    \"½¢╔ ╩╦╠    !P\n#╧!ê╨!ê*)Aë¼K╤)ç" [file-name-as-directory from-dir to-dir dired-fun-in-all-buffers dired-rename-subdir-1 buffer-list blist buffer-file-name dired-in-this-tree buffer-modified-p dired-replace-in-string "^" regexp-quote to-file modflag set-visited-file-name set-buffer-modified-p nil] 6] dired-rename-subdir-1 #[(dir to) "┴ ½û @ A─\n@\"½p╞\n#ê¬gÜ¡¿╔!ê╩╦ !\" ╦═ !!╧!¼à╨!ê)╤ *ç" [dired-subdir-alist nil elt alist dired-in-this-tree dir dired-rename-subdir-2 to default-directory dired-unadvertise expand-file-name file-name-nondirectory dired-directory directory-file-name new-name get-buffer rename-buffer dired-advertise] 4] dired-rename-subdir-2 #[(elt dir to) "è└┴\n!!┴ !─╚    !bê╩ !¼ç╠═\n\"ê¬₧╬öbê╧╬ò╨#½ë╤╨ë#ê¬ê╠╥\n    @#ê    ╙╘    @#!á,ç" [regexp-quote directory-file-name dir to nil buffer-read-only newtext regexp dired-get-subdir-min elt looking-at dired-subdir-regexp error "%s not found where expected - dired-subdir-alist broken?" 1 re-search-forward t replace-match "Expected to find `%s' in headerline of %s" dired-normalize-subdir dired-replace-in-string] 6]] 2)
  387. (fset 'dired-string-replace-match #[(regexp string newtext &optional literal global) "½╞┴┬├ë╚    \n#½ñ┬ö┬ò\nO ½ä ¬å═\n \"Q ¬R¡ë\n├OP,ç╚    \n┬#??¡¢\n┬ëöO ½ä ¬å═\n \"\n┬ò├OQç" [global "" 0 nil me mb start result string-match regexp string literal newtext dired-expand-newtext] 5 "\
  388. Replace first match of REGEXP in STRING with NEWTEXT.
  389. If it does not match, nil is returned instead of the new string.
  390. Optional arg LITERAL means to take NEWTEXT literally.
  391. Optional arg GLOBAL means to replace all matches."])
  392. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [dired-expand-newtext #[(string newtext) "└    G┬ë W½┘     Hë╟U½┴    TëHë╚U½ë    └ö└òO¬»╩Y½ƒ╦X½Ö╠Zëö½ï    öòO¬ü┬)¬è╬!¬ä╬!)PTë¬# +ç" [0 newtext "" expanded-newtext len pos c 92 38 string 49 57 48 n char-to-string] 5] dired-create-files #[(file-creator operation fn-list name-constructor &optional marker-char) "└ë┴\nG└ëë    ╩╦\n\"ê+½ö╠═╬G ╨ !&!ꬃ½Æ╠═╤G ╨ !&!ê¬è═╥ ╨ !$ê,╙ ç" [nil 0 fn-list total success-count skipped failures overwrite-backup-query overwrite-query to mapcar #[(from) "    !ë    Ü½è├─┼ù    #ê\n¼è╟    !Bëç╔\n!ë\n¡ë╦ ═╬╧\n#)¿½ä¬è½à╥    !¬ü├╘╒╓Å+ç" [name-constructor from to nil dired-log "Cannot %s to same file: %s\n" operation dired-make-relative skipped file-exists-p overwrite (format "Type SPC or `y' to overwrite file `%s',\nDEL or `n' to skip to next,\nESC or `q' to not overwrite any of the remaining files,\n`!' to overwrite all remaining files with no more questions." to) help-form dired-query overwrite-query "Overwrite `%s'?" overwrite-confirmed marker-char dired-file-marker actual-marker-char err (byte-code "    \n #ê ½ä┼\n!êT╟╚    \n$ê╦\n \"ç" [file-creator from to overwrite-confirmed overwrite dired-remove-file success-count message "%s: %d of %d" operation total dired-add-file actual-marker-char] 5) ((file-error (byte-code "└    !\nB├─    %ç" [dired-make-relative from failures dired-log "%s `%s' to `%s' failed:\n%s\n" operation to err] 6)))] 5] dired-log-summary message "%s failed for %d of %d file%s %s" operation dired-plural-s "%s: %d of %d file%s skipped %s" "%s: %s file%s." dired-move-to-filename] 8] dired-do-create-files #[(op-symbol file-creator operation arg &optional marker-char op1 how-to) "¼é    ┬├ \"ëG╟╚╔U½â¬ü    ╩P╦  ═╬\"%!¼å╤!¬Ä╥=½â├¬à!╔V½ï¼ç╘╒    #ê¼å╓!╫    ½â┘¬ü┌%,ç" [op1 operation dired-mark-get-files nil arg fn-list fn-count expand-file-name dired-mark-read-file-name 1 " %s to: " dired-dwim-target-directory op-symbol mapcar dired-make-relative target how-to file-directory-p t into-dir error "Marked %s: target must be a directory: %s" directory-file-name dired-create-files file-creator #[(from) "└┴\n! \"ç" [expand-file-name file-name-nondirectory from target] 3] (lambda (from) target) marker-char] 10] dired-dwim-target-directory #[nil "┴=¡é┬  ½£┼╞ !èqê┴=¡é┬ )ë«ü *¬ü )ç" [major-mode dired-mode dired-current-directory this-dir dired-dwim-target window-buffer next-window other-buf other-dir] 3] dired-into-dir-with-symlinks #[(target) "└    !¡ä┬    !?ç" [file-directory-p target file-symlink-p] 2]] 2)
  393. (fset 'dired-do-copy #[(&optional arg) "└    !┬U¼É├─┼½â╟¬ü╚        %ç?ë½ä╩╦!ç╩╠!ç" [prefix-numeric-value arg 0 dired-do-create-files copy dired-copy-file dired-copy-preserve-time "Copy [-p]" "Copy" dired-keep-marker-copy message "Copy will preserve time." "Copied files will get current date."] 7 "\
  394. Copy all marked (or next ARG) files, or copy the current file.
  395. Thus, a zero prefix argument copies nothing.  But it toggles the
  396. variable `dired-copy-preserve-time' (which see)." "P"])
  397. (fset 'dired-do-symlink #[(&optional arg) "└┴┬├ %ç" [dired-do-create-files symlink make-symbolic-link "SymLink" arg dired-keep-marker-symlink] 6 "\
  398. Symlink all marked (or next ARG) files into a directory,
  399. or make a symbolic link to the current file." "P"])
  400. (fset 'dired-do-hardlink #[(&optional arg) "└┴┬├ %ç" [dired-do-create-files hardlink add-name-to-file "HardLink" arg dired-keep-marker-hardlink] 6 "\
  401. Hard-link all marked (or next ARG) files into a directory,
  402. or make a hard link to the current file." "P"])
  403. (fset 'dired-do-move #[(&optional arg) "└    !┬U¼ï├─┼╞    ╚&ç    ?    ╩╦    ½â╠¬ü═\"ç" [prefix-numeric-value arg 0 dired-do-create-files move dired-rename-file "Move" dired-keep-marker-move "Rename" dired-dwim-target message "dired-dwim-target is %s." "ON" "OFF"] 7 "\
  404. Move all marked (or next ARG) files into a directory,
  405. or rename the current file.
  406. A zero ARG moves no files but toggles `dired-dwim-target' (which see)." "P"])
  407. (byte-code "└┴Mê┬├Mç" [dired-do-create-files-regexp #[(file-creator operation arg regexp newname &optional whole-path marker-char) "└┴\n\"ëG╞P╚╔ùù#\n ½â╠¬ü═┴╨ %.ç" [dired-mark-get-files nil arg fn-list fn-count operation " `%s' to `%s'?" operation-prompt format "Type SPC or `y' to %s one match, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." rename-regexp-help-form whole-path #[(from) "└    \n # ë½Ä╟╚    \n$¡ï¬ç╩╦ \n    $*ç" [dired-string-replace-match regexp from newname rename-regexp-help-form help-form to dired-query rename-regexp-query operation-prompt dired-log "%s: %s did not match regexp %s\n" operation] 6] #[(from) "└    ┬ ! #ë¡å╞╟ !\"    \n½Æ╦╠╬ !╬!$¡ì¬ë╧╨┬ !    $+ç" [dired-string-replace-match regexp file-name-nondirectory from newname new expand-file-name file-name-directory to rename-regexp-help-form help-form dired-query rename-regexp-query operation-prompt dired-make-relative dired-log "%s: %s did not match regexp %s\n" operation] 7] regexp-name-constructor rename-regexp-query dired-create-files file-creator marker-char] 7] dired-mark-read-regexp #[(operation) "└    !┬Üë?¡ü    ┼ ½â╞¬ü╟╔Q\n\" ╠ ½â╞¬ü╟═ ╬░!  F,ç" [prefix-numeric-value current-prefix-arg 0 whole-path arg dired-read-regexp "Path " "" operation " from (regexp): " dired-flagging-regexp regexp read-string " " " to: " newname] 7]] 2)
  408. (fset 'dired-do-rename-regexp #[(regexp newname &optional arg whole-path) "└┴┬ &ç" [dired-do-create-files-regexp dired-rename-file "Rename" arg regexp newname whole-path dired-keep-marker-move] 8 "\
  409. Rename marked files containing REGEXP to NEWNAME.
  410. As each match is found, the user must type a character saying
  411.   what to do with it.  For directions, type \\[help-command] at that time.
  412. NEWNAME may contain \\=\\<n> or \\& as in `query-replace-regexp'.
  413. REGEXP defaults to the last regexp used.
  414. With a zero prefix arg, renaming by regexp affects the complete
  415.   pathname - usually only the non-directory part of file names is used
  416.   and changed." (dired-mark-read-regexp "Rename")])
  417. (fset 'dired-do-copy-regexp #[(regexp newname &optional arg whole-path) "└┴\n½â├¬ü─    &ç" [dired-do-create-files-regexp dired-copy-file dired-copy-preserve-time "Copy [-p]" "Copy" arg regexp newname whole-path dired-keep-marker-copy] 8 "\
  418. Copy all marked files containing REGEXP to NEWNAME.
  419. See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "Copy")])
  420. (fset 'dired-do-hardlink-regexp #[(regexp newname &optional arg whole-path) "└┴┬ &ç" [dired-do-create-files-regexp add-name-to-file "HardLink" arg regexp newname whole-path dired-keep-marker-hardlink] 8 "\
  421. Hardlink all marked files containing REGEXP to NEWNAME.
  422. See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "HardLink")])
  423. (fset 'dired-do-symlink-regexp #[(regexp newname &optional arg whole-path) "└┴┬ &ç" [dired-do-create-files-regexp make-symbolic-link "SymLink" arg regexp newname whole-path dired-keep-marker-symlink] 8 "\
  424. Symlink all marked files containing REGEXP to NEWNAME.
  425. See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "SymLink")])
  426. (byte-code "└┴Mê┬├Mç" [dired-create-files-non-directory #[(file-creator basename-constructor operation arg) "└┬ ┼└\"╟%)ç" [nil rename-non-directory-query dired-create-files file-creator operation dired-mark-get-files arg #[(from) "└    !\n├    !!P┼╞ùù#╔╩╦P╠    !╠ !$)¡ü )ç" [file-name-directory from basename-constructor file-name-nondirectory to format "Type SPC or `y' to %s one file, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." operation help-form dired-query rename-non-directory-query " `%s' to `%s'" dired-make-relative] 6] dired-keep-marker-move] 6] dired-rename-non-directory #[(basename-constructor operation arg) "└┴\n $ç" [dired-create-files-non-directory dired-rename-file basename-constructor operation arg] 5]] 2)
  427. (fset 'dired-upcase #[(&optional arg) "└┴┬ #ç" [dired-rename-non-directory upcase "Rename upcase" arg] 4 "\
  428. Rename all marked (or next ARG) files to upper case." "P"])
  429. (fset 'dired-downcase #[(&optional arg) "└┴┬ #ç" [dired-rename-non-directory downcase "Rename downcase" arg] 4 "\
  430. Rename all marked (or next ARG) files to lower case." "P"])
  431. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mç" [dired-in-this-tree #[(file dir) "└┬├─!P\")ç" [nil case-fold-search string-match "^" regexp-quote dir file] 4] dired-make-absolute #[(file &optional dir) "«ü    \nPç" [dir default-directory file] 2] dired-make-relative #[(file &optional dir no-error) "¼é    ┬├─!P\"½å╞ò╟Oç½éç╔╩#ç" [dir default-directory string-match "^" regexp-quote file 0 nil no-error error "%s: not in directory tree growing at %s"] 4] dired-normalize-subdir #[(dir) "└┴\n!½â\n¬ä├\n \"!ç" [file-name-as-directory file-name-absolute-p dir expand-file-name default-directory] 4] dired-between-files #[nil "└┴!«â└\n!ç" [looking-at "^$\\|^. *$\\|^. total\\|^. wildcard" dired-subdir-regexp] 2] dired-get-subdir #[nil "è└ ┬yê`├─    \"!Z┬U¡ü    *ç" [dired-current-directory cur-dir 0 dired-get-subdir-min assoc dired-subdir-alist] 5] dired-get-subdir-min cdr dired-get-subdir-max #[(elt) "è└    !bê┬ )ç" [dired-get-subdir-min elt dired-subdir-max] 2] dired-clear-alist #[nil "¡Å┴@!┬ëôêAë¼r┬ç" [dired-subdir-alist dired-get-subdir-min nil] 4] dired-simple-subdir-alist #[nil "└┴!\n├ BCLç" [make-local-variable dired-subdir-alist default-directory point-min-marker] 3]] 2)
  432. (fset 'dired-build-subdir-alist #[nil "└ êè┴ebê├┼├╟#½¥\nT╚╔ö╔ò{è┴öbê┴yê╩ )\"ê╦╠\n\"ê¬[╦═\në╔U½â╬¬ü╧#ê *ç" [dired-clear-alist 0 count nil dired-subdir-alist re-search-forward dired-subdir-regexp t dired-alist-add-1 1 point-marker message "%d" "%d director%s." "y" "ies"] 5 "\
  433. Build `dired-subdir-alist' by parsing the buffer and return it's new value." nil])
  434. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mç" [dired-alist-add #[(dir new-marker) "└    \n\"ê├ ç" [dired-alist-add-1 dir new-marker dired-alist-sort] 3] dired-alist-add-1 #[(dir new-marker) "└    !\nB Bëç" [dired-normalize-subdir dir new-marker dired-subdir-alist] 2] dired-alist-sort #[nil "└    ┬\"ëç" [sort dired-subdir-alist #[(elt1 elt2) "└    !└\n!Vç" [dired-get-subdir-min elt1 elt2] 3]] 3] dired-unsubdir #[(dir) "└┴\n \" \"ëç" [delq assoc dir dired-subdir-alist] 4] dired-goto-next-nontrivial-file #[nil "└ ê    ;¡Üm?¡û┬    ├─┼╞\"«ü╟!\"¡ê╚yê╔ ê¬fç" [dired-goto-next-file dired-trivial-filenames string-match file-name-nondirectory dired-get-filename nil t "" 1 dired-move-to-filename] 6] dired-goto-next-file #[nil "└ S┬ ?¡è`    W¡à├yê¬q)ç" [dired-subdir-max max dired-move-to-filename 1] 2]] 2)
  435. (fset 'dired-goto-subdir #[(dir) "└    !┬     \"ë¡ï┼ !b¡à╞╟wê`)ç" [file-name-as-directory dir assoc dired-subdir-alist elt dired-get-subdir-min "^\n" nil] 4 "\
  436. Goto end of header line of DIR in this dired buffer.
  437. Return value of point on success, otherwise return nil.
  438. The next char is either \\n, or \\r if DIR is hidden." (byte-code "└┴┬ ─┼╞ %!C╟ êç" [expand-file-name completing-read "Goto in situ directory: " dired-subdir-alist nil t dired-current-directory push-mark] 7)])
  439. (fset 'dired-goto-file #[(file) "└    !┬ëè┼╞    !«ä╟╚    \"!½º╔    !╩   ¼Ü═╬ P ╧#½Å ╨╤╥\"ܽi╙ ë½f*) ¡é b*ç" [directory-file-name file nil case-fold-search found dired-goto-subdir file-name-directory error "Need absolute pathname for %s" file-name-nondirectory dired-subdir-max boundary base search-forward " " move dired-get-filename no-dir t dired-move-to-filename] 5 "\
  440. Goto file line of FILE in this dired buffer." (byte-code "└┴┬├ \"!C─ êç" [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)])
  441. (byte-code "└┴Mê┬├Mç" [dired-initial-position #[(dirname) "└ê    ¡é┬ ç" [nil dired-trivial-filenames dired-goto-next-nontrivial-file] 1] dired-subdir-index #[(dir) "└┴\n ½û @@ÿ½å└╟¬o A T¬g¡ü +ç" [nil 0 dired-subdir-alist alist index found dir t] 3]] 2)
  442. (fset 'dired-next-subdir #[(arg &optional no-error-if-not-found no-skip) "└ ┴ë┼ !Zë╟Y¡å╚\n    8!ë½Ä bê\n¼ä╦┴wê`¬Æ ?¡ì═╬╟V½â╧¬ü╨\"+ç" [dired-current-directory nil index pos this-dir dired-subdir-index arg 0 dired-get-subdir-min dired-subdir-alist no-skip "^\n" no-error-if-not-found error "%s directory" "Last" "First"] 5 "\
  443. Go to next subdirectory, regardless of level." "p"])
  444. (fset 'dired-prev-subdir #[(arg &optional no-error-if-not-found no-skip) "└    [\n #ç" [dired-next-subdir arg no-error-if-not-found no-skip] 4 "\
  445. Go to previous subdirectory, regardless of level.
  446. When called interactively and not on a subdir line, go to this subdir's line." (byte-code "½à┴!¬ê┬ ½â├¬ü─Cç" [current-prefix-arg prefix-numeric-value dired-get-subdir 1 0] 2)])
  447. (fset 'dired-tree-up #[(arg) "└ \n├Y½ï\nS─┼    !!¬p╞    !«ä╟╚    \")ç" [dired-current-directory dir arg 1 file-name-directory directory-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree."] 3 "\
  448. Go up ARG levels in the dired tree." "p"])
  449. (fset 'dired-tree-down #[nil "└ ┴ë┼!┴½ƒ@A╔╩@! \"½h┴╦@!¬]* ½ä b¬â╠═!+ç" [dired-current-directory nil case-fold-search pos dir reverse dired-subdir-alist elt rest dired-in-this-tree directory-file-name dired-goto-subdir error "At the bottom"] 3 "\
  450. Go down in the dired tree." nil])
  451. (byte-code "└┴Mê┬├Mê─┼Mç" [dired-subdir-hidden-p #[(dir) "¡ëè┴\n!ê├─!)ç" [selective-display dired-goto-subdir dir looking-at ""] 2] dired-unhide-subdir #[nil "└┬├ ─ ┼╞$)ç" [nil buffer-read-only subst-char-in-region dired-subdir-min dired-subdir-max 13 10] 5] dired-hide-check #[nil "«â┴┬!ç" [selective-display error "selective-display must be t for subdir hiding to work!"] 2]] 2)
  452. (fset 'dired-hide-subdir #[(arg) "└ ê    Së┬Y¡┴├ ┼ !╟ \"    ╩    !S ╠╬    !bê╧╠wê½è╨` ╤╥$ê¬ê╨` ╥╤$ê-╙╘╒\"ê¬7ç" [dired-hide-check arg 0 dired-current-directory cur-dir dired-subdir-hidden-p hidden-p assoc dired-subdir-alist elt dired-get-subdir-max end-pos nil buffer-read-only dired-get-subdir-min "^\n" subst-char-in-region 13 10 dired-next-subdir 1 t] 5 "\
  453. Hide or unhide the current subdirectory and move to next directory.
  454. Optional prefix arg is a repeat factor.
  455. Use \\[dired-hide-all] to (un)hide all directories." "p"])
  456. (fset 'dired-hide-all #[(arg) "└ ê┴èebê├─┴┼#)½ê╞ed╟╚$¬░d    \n \n¡ñ╞╠\n@!è bê═yê`)╚╟$ê╠\n@! \nAë\n¼]┴*)ç" [dired-hide-check nil buffer-read-only search-forward "" t subst-char-in-region 13 10 dired-subdir-alist alist pos dired-get-subdir-min -1] 6 "\
  457. Hide all subdirectories, leaving only their header lines.
  458. If there is already something hidden, make everything visible again.
  459. Use \\[dired-hide-subdir] to (un)hide a particular subdirectory." "P"])
  460. (fset 'dired-current-directory #[(&optional localp) "`«ä┴┬p\"├ë½ÿ@ë@╚!X?¡âAë¼h    ½ç╩  \"¬ü ,ç" [dired-subdir-alist error "No subdir-alist in %s" nil dir elt alist here dired-get-subdir-min localp dired-make-relative default-directory] 5 "\
  461. Return the name of the subdirectory to which this line belongs.
  462. This returns a string with trailing slash, like `default-directory'.
  463. Optional argument means return a file name relative to `default-directory'."])
  464. (byte-code "└┴Mê┬├Mç" [dired-subdir-min #[nil "è└┴┬ë#¼à├─!¬ü`)ç" [dired-prev-subdir 0 t error "Not in a subdir!"] 4] dired-subdir-max #[nil "è└┴┬ë#¼âd¬ü`)ç" [dired-next-subdir 1 t] 4]] 2)
  465. (fset 'dired-kill-line-or-subdir #[(&optional arg) "└ ½â┴ ç┬ !ç" [dired-get-subdir dired-kill-subdir dired-kill-line arg] 2 "\
  466. Kill this line (but not this file).
  467. Optional prefix argument is a repeat factor.
  468. If file is displayed as in situ subdir, kill that as well.
  469. If on a subdir headerline, kill whole subdir." "p"])
  470. (fset 'dired-kill-line #[(&optional arg) "└    !┬ë    ┼U¼╕╞┬╟\"ë¼å╚╔!ê¬mè ½ê╩ !½â╦ ê)┼yê`╠yê`|ê    ┼V½å    Së¬L    T═yê¬C╬ *ç" [prefix-numeric-value arg nil file buffer-read-only 0 dired-get-filename t error "Can only kill file lines." dired-goto-subdir dired-kill-subdir 1 -1 dired-move-to-filename] 4 nil "P"])
  471. (fset 'dired-kill-subdir #[(&optional remember-marks) "└ ┴ ┬ë╟ ëܽä╔╩!ê ¡à╠\"|êm½ä═╬!ê╧ !ê,ç" [dired-subdir-min dired-subdir-max nil cur-dir buffer-read-only end beg dired-current-directory default-directory error "Attempt to kill top level directory" remember-marks dired-remember-marks delete-char -1 dired-unsubdir] 5 "\
  472. Remove all lines of current subdirectory.
  473. Lower levels are unaffected." nil])
  474. (fset 'dired-do-kill #[(&optional arg fmt) "èebê└┴ ¼í┼ m¼ù╟└╚#½Å\nT┴yê`╔yê`|ê¬f)¬ƒm¼£╩ ¼à╦╠!¼à╔yê¬o\nT`è╔yê`)|ê¬a═ܼî╧«ü╨\n╤\n!#ê\n+ç" [nil 0 count buffer-read-only arg dired-marker-regexp regexp re-search-forward t 1 dired-between-files looking-at "^  " "" fmt message "Killed %d line%s." dired-plural-s] 5 "\
  475. Kill all marked lines (not files).
  476. With a prefix arg, kill all lines not marked or flagged." "P"])
  477. (fset 'dired-do-redisplay #[(&optional arg test-for-subdir) "½æ┴ ½ì┬┴  ¡à─┼\"\"ç╟╚!ê╔ëëë\n   ½º ¿½æ╬ ╧\"ê ╨Wâ╕\nƒê¬ⁿ╤ ╟╙\"ê╘!ê)¬Ω╒ ╔èebê╪╔┘#¡é┌ ë?? ½┤bê╤ ╟╙\"ê╘!)\nB\nbê█yê╔ëôê╪╔┘#¡é┌ ë¼L) ¼É╤ ╟╙\"ê╘!ê)*,▄ ê▄ ê╟▌!ç" [test-for-subdir dired-get-subdir dired-insert-subdir arg read-string "Switches for listing: " dired-actual-switches message "Redisplaying..." nil results found case-fold-search buffer-read-only dired-repeat-over-lines #[nil "└ ┬├    \"ê─    !)Bëç" [dired-get-filename fname message "Redisplaying... %s" dired-update-file-line results] 3] 0 dired-get-filename fname "Redisplaying... %s" dired-update-file-line dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename "Redisplaying...done"] 6 "\
  478. Redisplay all marked (or next ARG) files.
  479.  
  480. If on a subdir line, redisplay that subdirectory.  In that case,
  481. a prefix arg lets you edit the ls switches used for the new listing." "P\np"])
  482. (fset 'dired-mark-files-in-region #[(start end) "└\n V½ä─┼!ê\nbê` W¡º` W½ë╞ ½à╟yê¬r╚    !¼Ä╩└╦\"½ê╠╟!êcê╟yê¬T)ç" [nil buffer-read-only start end error "start > end" dired-between-files 1 looking-at dired-re-dot dired-get-filename t delete-char dired-marker-char] 3])
  483. (fset 'dired-mark-subdir-files #[nil "└ ┬    ├ \")ç" [dired-subdir-min p-min dired-mark-files-in-region dired-subdir-max] 3 "\
  484. Mark all files except `.' and `..'." "P"])
  485. (fset 'dired-mark-subdir-or-file #[(arg) "└ ½àè┴ )ç┬├ !!ç" [dired-get-subdir dired-mark-subdir-files dired-mark-file prefix-numeric-value arg] 3 "\
  486. Mark the current (or next ARG) files.
  487. If on a subdir headerline, mark all its files except `.' and `..'.
  488.  
  489. Use \\[dired-unflag-all-files] to remove all marks
  490. and \\[dired-unmark-subdir-or-file] on a subdir to remove the marks in
  491. this subdir." "P"])
  492. (fset 'dired-unmark-subdir-or-file #[(arg) "└┬ !)ç" [32 dired-marker-char dired-mark-subdir-or-file arg] 2 "\
  493. Unmark the current (or next ARG) files.
  494. If looking at a subdir, unmark all its files except `.' and `..'." "P"])
  495. (fset 'dired-maybe-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) "`┴\n! ¼à─\n!¼ç┼\n #ê╟!)ç" [opoint file-name-as-directory dirname switches dired-goto-subdir dired-insert-subdir no-error-if-not-dir-p push-mark] 4 "\
  496. Insert this subdirectory into the same dired buffer.
  497. If it is already present, just move to it (type \\[dired-do-redisplay] to refresh),
  498.   else inserts it at its natural place (as ls -lR would have done).
  499. With a prefix arg, you may edit the ls switches used for this listing.
  500.   You can add `R' to the switches to expand the whole tree starting at
  501.   this subdirectory.
  502. This function takes some pains to conform to ls -lR output." (byte-code "└     ¡ä┬├ \"Dç" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)])
  503. (fset 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) "└┴\n!!├\n \"ê¼è╞\n!¼à╟╚\n\"ê╔\n\n\"╦ëëë  ¡ä╤╥ \"ë½å╙\n╘\"½ï╒!ñ¬ä╓\n!ê╫\n╪\n \"#ê½â┘ ê┌\n!êè█!.ç" [file-name-as-directory expand-file-name dirname dired-insert-subdir-validate switches no-error-if-not-dir-p file-directory-p error "Attempt to insert a non-directory: %s" assoc dired-subdir-alist nil buffer-read-only case-fold-search mark-alist switches-have-R elt string-match "R" dired-kill-tree t dired-insert-subdir-del dired-insert-subdir-newpos dired-insert-subdir-doupdate dired-insert-subdir-doinsert dired-build-subdir-alist dired-initial-position dired-mark-remembered] 6 "\
  504. Insert this subdirectory into the same dired buffer.
  505. If it is already present, overwrites previous entry,
  506.   else inserts it at its natural place (as ls -lR would have done).
  507. With a prefix arg, you may edit the ls switches used for this listing.
  508.   You can add `R' to the switches to expand the whole tree starting at
  509.   this subdirectory.
  510. This function takes some pains to conform to ls -lR output." (byte-code "└     ¡ä┬├ \"Dç" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)])
  511. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mç" [dired-insert-subdir-validate #[(dirname &optional switches) "└    \n\"¼à├─    \"ê¡ê╞╚╔╩\")ç" [dired-in-this-tree dirname default-directory error "%s: not in this directory tree" switches nil case-fold-search mapcar #[(x) "└    \n\"?└     \"?=«ä─┼    \"ç" [string-match x switches dired-actual-switches error "Can't have dirs with and without -%s switches together"] 4] ("F" "b")] 3] dired-kill-tree #[(dirname &optional remember-marks) "┴ë ½á @@ A ÿ¼q╞ \"½k╟ !½f╚    !\nñ¬]\n+ç" [dired-subdir-alist nil m-alist dir s-alist dirname dired-in-this-tree dired-goto-subdir dired-kill-subdir remember-marks] 3 nil "DKill tree below directory: "] dired-insert-subdir-newpos #[(new-dir) "┴ëëë½í@A@╟!╚     \"½e╩!┴ë¼_\nbê-m¼â╦yê╠cê`ç" [dired-subdir-alist nil new-pos pos dir elt alist dired-get-subdir-min dired-tree-lessp new-dir dired-get-subdir-max -1 "\n"] 6] dired-insert-subdir-del #[(element) "└    !ëbê├ bêm¼â─uê┼\n`\"\n`|ê)ç" [dired-get-subdir-min element begin-marker dired-subdir-max -1 dired-remember-marks] 4] dired-insert-subdir-doinsert #[(dirname switches) "`└├─\"ê«å╟╚╔\n#\n╦ !@@ܽç═!ê¬ê╧\n└╨$ê)├╤\"ê╥ ╙\n    ╘#ê\nbê╒!ê\n╓    !D    └ëôê*ç" [nil end begin message "Reading directory %s..." dirname switches dired-replace-in-string "R" "" dired-actual-switches reverse dired-subdir-alist dired-readin-insert dired-directory dired-ls t "Reading directory %s...done" point-marker indent-rigidly 2 dired-insert-headerline marker-position] 5] dired-insert-subdir-doupdate #[(dirname elt beg-end) "½è┴!┬ ├ôê¬å─┬ \"ê¡Üè@A@ë    bêî    }ê╩╞!,ç" [elt dired-get-subdir-min point-marker nil dired-alist-add dirname dired-after-readin-hook beg-end end begin run-hooks] 4] dired-tree-lessp #[(dir1 dir2) "└    !└\n!├─    \"├─\n\"½ò½Æ@@ܽèAA¬g@@ë½ï½çÖ¬£¼ç¼â╔¬æ¼â╩¬è¼â╔¬â╦╠!,ç" [file-name-as-directory dir1 dir2 dired-split "/" components-2 components-1 c2 c1 nil t error "This can't happen"] 5]] 2)
  512. (fset 'dired-split #[(pat str &optional limit) "└    \n\"\n─ OC╞ ¡é─òë½¼    ¿½ç    W½á└    \n#½ÿ─öT\n OB─òë¬T    ¿½ç    W½î½ê\n╩OBƒ,ç" [string-match pat str start 0 result 1 count end limit nil] 5 "\
  513. Splitting on regexp PAT, turn string STR into a list of substrings.
  514. Optional third arg LIMIT (>= 1) is a limit to the length of the
  515. resulting list.
  516. Thus, if SEP is a regexp that only matches itself,
  517.  
  518.    (mapconcat 'identity (dired-split SEP STRING) SEP)
  519.  
  520. is always equal to STRING."])
  521. (defvar dired-ls-sorting-switches "SXU" "\
  522. String of ls switches (single letters) except `t' that influence sorting.")
  523. (defvar dired-sort-by-date-regexp (concat "^-[^" dired-ls-sorting-switches "]*t[^" dired-ls-sorting-switches "]*$") "\
  524. Regexp recognized by dired to set `by date' mode.")
  525. (defvar dired-sort-by-name-regexp (concat "^-[^t" dired-ls-sorting-switches "]+$") "\
  526. Regexp recognized by dired to set `by name' mode.")
  527. (defvar dired-sort-mode nil "\
  528. Whether Dired sorts by name, date etc. (buffer-local).")
  529. (fset 'dired-sort-set-modeline #[nil "└┬ \"½â┼¬ì┬ \"½â╟¬â╚ P)    ╩╦ !ç" [nil case-fold-search string-match dired-sort-by-name-regexp dired-actual-switches " by name" dired-sort-by-date-regexp " by date" " " dired-sort-mode set-buffer-modified-p buffer-modified-p] 3])
  530. (fset 'dired-sort-toggle-or-edit #[(&optional arg) "½ç┴┬├ \"!ç┼ ç" [arg dired-sort-other read-string "ls switches (must contain -l): " dired-actual-switches dired-sort-toggle] 4 "\
  531. Toggle between sort by date/name and refresh the dired buffer.
  532. With a prefix argument you can edit the current listing switches instead." "P"])
  533. (byte-code "└┴Mê┬├Mê ┼=½ä╞╟!ê ╚>½ä╞╔!ê╩╦!ç" [dired-sort-toggle #[nil "└┬├─╞Q╟#╔╩╞Q\"½â╟¬ü╦Q)╠ ê═ ç" [nil case-fold-search "-l" dired-replace-in-string "[---lt" dired-ls-sorting-switches "]" "" dired-actual-switches string-match "[t" "t" dired-sort-set-modeline revert-buffer] 6] dired-sort-other #[(switches &optional no-revert) "┬ ê «é─ ç" [switches dired-actual-switches dired-sort-set-modeline no-revert revert-buffer] 1] system-type vax-vms load "dired-vms" (ms-dos win386) "direddos" run-hooks dired-load-hook] 2)
  534.